10 REM ------- FREQUENCY COUNTER ------
20 REM --------- LORNE KLASSEN --------
30 REM ------- EAST KELOWNA,B.C. ------
40 :
50 REM  USES CNT2 (PIN #6) ON THE USER PORT TO READ IN THE FREQUENCY.
60 REM  ANY SIGNAL APPLIED TO THIS PIN MUST BE AT TTL LEVEL.
70 REM  COUNT IS STORED AT 680 AND 681.
80 REM  GATE TIME IS STORED AT 822,            OVERFLOW AT 823
90 :
100 C=C+1:IFC=1THENLOAD"FREQ.CNTR.@C000",8,1
110 CX=-1
120 PRINT"[147]"TAB(12)"FREQUENCY COUNTER"
130 PRINTTAB(12)"-----------------"
140 PRINT:PRINTTAB(6)" PRESS '+' FOR 1 SEC. GATE"
150 PRINT:PRINTTAB(6)" PRESS '-' FOR 0.1 SEC. GATE"
160 PRINT:PRINTTAB(10)"ANY OTHER KEY TO QUIT"
170 SYS 49152:REM  START ADDRESS
180 C=PEEK(680)+256*PEEK(681):IFC=CXTHEN230:REM COUNT HAS NOT CHANGED
190 PRINT"       [157][157][157][157][157][157][157]";C;D$,"CYCLES PER SECOND"
200 CX=C
210 IFPEEK(823)THENPRINT"OVERFLOW"
220 IFPEEK(823)=0THENPRINT"        ":REM 8 SPACES
230 GETA$:IFA$=""THEN180
240 IFA$="+"THENPOKE822,60:D$="":GOTO180
250 IFA$="-"THENPOKE822,6:D$="[157]0":GOTO180
260 SYS 49155:REM  DISCONNECT ADDRESS
270 END